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Introdução 


Embora todos os micros nacionais 
utilizem a linguagem BASIC, existem 
vários dialetos desta linguagem usados 
em micros de diferentes marcas e 
modelos. Os micros nacionais podem ser 
divididos em sciá “famílias”: a família 
Spectrum (TK-85, TK-90X), a família 
TRS-80 (DGT-1000, CP-500 eic. 
família TR$-80 Color (CP-400), a família 
Apple (Micro Engenho, Ap-Il etc.), a 
família MSX (Expert, Hot Bit) e a 
família PC (Ego, 1-7000 etc.). Se você 
não souber a que família pertence o seu 
micro, poderá obter a informação em 
qualquer loja especializada. 

Neste livro, a listagem principal de 
cada programa é para os micros da 
família TRS-80. As linhas que precisam 
ser mudadas para que o programa 
funcione em outros computadores estão 
indicadas par simbolos e as modificações 
aparecem no final de cada listagem. Os 
símbolos são os seguintes: 

O família TRS-80 Color 

Y família Spectrum 

O família Apple 

família MSX 

6 família pc 

4 Commodore 64 e VIC 20* 

Cada vez que você vir o símbolo da 
família a que pertence o seu micro, 
procure no final da listagem uma linha 
com o mesmo símbolo c o mesmo 
número. Use-a no lugar da linha 
correspondente da listagem principal. Na 
página 17 há notas especiais para os 
usuários do TK-2000, do MSX e do PC 


“Até o momento não têm cquiva 


Ilustrações: Sue Walliker, Rob McCaig e 
Martin Newton 

Diagramação: Roger Priddy 

Programa ““Espiobot”: Adrian Hall. 


Como carregar e executar os 
programas 


Escreva as linhas exatamente como 
aparecem na listagem, incluindo todos os 
espaços e sinais de pontuação. Depois de 
barer cada linha, verifique na tela se 
tudo está certo antes de apertar a tecla 
RETURN (ou a tecla equivalente para o 
seu micro). 

Para começar o jogo, entre com RUN. 
p alguns jogos, as coisas acantecem 
muito depressa, de modo que é melhor 
ler atentamente as instruções antes de 
começar. Se o programa não funciona 
corretamente, o melhor é listá-lo e 
comparar as instruções com as do livro, 
uma por uma, até descobrir onde está 
erro. 


Experiências com os jogos 


Este livro contém várias sugestões para 
modificar e ampliar 05 programas, mas 
não tenha medo de introduzir suas 
próprias alterações. Não há perigo de 
danificar o computador; sc sua idéia não 
der certo, você sempre poderá voltar ao 
programa original. 

Você provavelmente terá vontade de 
mudar a velocidade de alguns jogos, 
especialmente depois que estiver 
familiarizado com eles. As instruções 
para fazer isso estão perto da listagem de 
cada programa. 

Se o seu computador é capuz de 
cores au sons, consulte o manual p: 
descobrir como funcionam as instruções 
correspondentes c experimente usá-las nos 
programas deste livro 


erar 
a 


Olhos de Espião 


Se você acha que daria um bom espião, experimente este jogo. 

O computador mostra na tela os números de 1 a 9. Fxamine 
atentamente a pasição dos números antes de apertar uma tecla 
(qualquer tecla server. Um dos números muda de posição. Qual 
deles? Quando achar que sabe a resposta, aperte de nova uma 
tecla e entre com o seu palpite. Vai ver que seus poderes de 
observação não são tão fabulosos quanto pensava. 7 


RR O E PR Como o programa funciona 
LET F=0 

30 FOR Is] TO 9 à 
40 GOSUB 340:L dos números. 

50 GOSUB 340 20: Inicia a contagem de pontos em zero 

60 NEXT 1 30-60: Escolhe as posicões dos números. 

70 GOSUE 360 ja que mostra os múmes 
80 GOSUB 310 
90 .GOSUE 340 


10: Reserva espaço na-memória para as posi 


Vai para a sub-rotina que espera até que uma 


100 LET H=N:GOSUS 340 tecla seja apertada. 
NO LET XEMP=ACAD ESCNCN-S 41) “0.100; Vai para a sub-rotina que escolhe um dos 
20 GOSUB 360 números e à chuma de M 


130 GOSUB 310 HO: Decide se o número vai ser movido para à 


140 CLSSPRINT 
direita 01 esques 
150 PRINT "QUAL O NUMERO QUE SE MOVEL? nsparava anibEnda! 


180" INPUT UR 120: à ai para a sub-rotina que mostra os números 
70 IF ACIM THEN GOTO 250 ma tela 

ao 150 CLS:PRINT 130: Vai para a sub-rotina que espera até que uma 
190 PRINT “MUITO BEM! 
200 LET Pap+ 150: Limpa a tela e imprime mensagem. 
210 PRINT “AGORA VOCÊ TEM “$P;” PONTOS” 160): Recehe um número. 
220 PRINTIPRINT “RPERTE UMA TECLA! 170; Se o número está errado. pula para as 
230 LUSUB SÃO mensagens das linhas 250 a 280. 
24º GOTO 30 180-190; Limpa a tela e imprime mensagem. 

AO 250 CLStPRINTIPRINT “ERRADOS. FIM DO JOGO” 300.210; Aumenta a contagem de pontos e mostra 0 
260 PRINT "4 RESPOSTA CERTA ERA “:M e iiado 
270 PRINT “VOCE FEZ PONTOS ANTA é mediana E va mpi 
280 PRINT "QUER JOGAR DE NOVO? (5/N) 2 W: Imprime mensagem e é para u sub-rotina 
290 INPUT ASEIF A$="S" THEN RUN que espera até que uma tecla seja apertada 
300 STOP 240: Volta para uma nova tentativa. 

20310 LET IS=IMEYS 2540-300: Informa que você errou e pergunta se qu 
920 IF 18= THEN GOTO 310 jogar de novo 
330 RETURN M0-330; Sub-rotina que espera até que uma tecla 
340 LET N=INTIRNDCODA9)+ seja apertada. 


350 RETURN 340-350: Sub-rotina para escolher um número ao 
0 369 CLS aso entre 1€ 9. 
370 FOR 1=1 10 9 3680-400: Sub-rotina para mostrar os números na 
jotvamo 380 PRINTE YCIDAG4SXCI),STRSCTD; tela, itas poiições escolâliias 
390 NEXT 1 
400 RETURN 


Modificações 


Veja se é capaz de 
modificar o programa 
para que ele mostre o 
recorde do momento. 


PRENT TARCCTO 
4300 LOGRTE XCD xt 3 


4 | completar uma 


Esta noite você tem que executar uma mis 


ão extremamente perigosa: atravessar uma 


região muito vigiada do território inimigo e voltar, esquivanda-se nos raios de um 
potente holofote. Você pode se escunder atrás de árvores e pedras, mas se for visto... 
não terá uma segunda oportunidade. Depois de completar uma missão, receberá 
outra, ainda mais difícil. Quantas missões será capaz de cumprir antes de ser 


descoberto pelo inimigo? 


Use a tecla M para andar para a direita e N para andar para a esquerda. Para 


na volta, 


VO GUSUB 450 
20 LET A=ISLEI 6º03LEY 50 
4030 cis 
40 LET X=OILET Y=I2SLET BESASCA) 
50 GOSUB 200 
ET N=OILET NN=O!GUSUB 340 
ET CaOILET TO=103LET C1=0 
AO 30 LET IScINKEYS 
90 LF 18="Nº THEN LET NaN] 
100 1F 18="H* THEN LET Nut 
VI TF NNH19 THEN LET NN=19 
120 1F NNCO THEN LET NHcO 
130 1F NH=19 ANO F=0 THEN LET Fm 
14O IF NN=0 AND F=) THEN LET F=2 
150 GOSUB 340 
160 TF NON THEN LET S=9+ 
170 LET NºNNILET 62041 
180 GOSUM 400. 


v190 IF MIDSCASCAM,Né1,1)=" " AND L=l THEN GOTO 240 


200 FOR T=1 TO SONEXT T 
210 IF F(2 THEN GOTO BO 


Você sabe como 
fazer o holofote 
ficar aceso por mais 


Talvez você possa 
substituir os obstáculos, 
indicados nesta listagem 
« pelo símbolo =, por 
simbolos gráficos que 
representem árvores, 
onstruções efe. 


são, você precisa cruzar 0 terreno duas vezes, uma na ida e outra 


Como o programa 


: Imprime os obstáculos. 
60-70; N é a posição do jogador. NN 
é a nova posição. 
80: Verifica se uma tecla está sendo 
apertada. 
90-100: Se a tecla upertuda é N 
(esquerda), a 
1. Se é M (direta), a nova posiç 
N mais 1. 
110-120: Evita que 0 Jogador suia da tela 
130-140: F se igual a 1 quando o 
jogador chega à extremidade direita du 
tela e igual à 2 quando ele chega de 
novo à extremidade esquerda. 

vai para a sub-rolima que muda à 
posição do jogador 
160: Quando o jogador se move, S 
aumenta. 
170: Faz a posição do jogador igual à 
nova posição e uumenta G. G 
funciona como um contador de 
tempo, aumentando sempre, mesmo 
que v jogador não se mova, 
180; Vai para a sub-rotina que acende 
e apaga 0 holofote. 
190: Verifica se 0 jogador está abaixo 
de um espaço vazio com o holotote 
ligado; em caso afirmativo, vai para O 
fim do jogo. 
200: Pausa. 
210: Se o jogador não voltou no lado, 
esquerdo da tela, verifica de novo se, 
alguma tecla está sendo apertada. 


Faça soar u 
alarma quando o 
jogador for visto. 


LET ASA+IS IF A=O THEN LET A=7 
Soro 30 

LET KSA LET YalILET BS="VOCÊ FOI VISTO! 
GOSUB 380: PRINT - 

PRINT “VICE FEZ *yINT(LN-149/6)0100) 
PRINTSPRINT "QUER JOGAR DE NOVO? (57h77 
INPUT CSSIF Ch="S" THEN RUN 

PRINT "TENAU, «7 tSTOP 

LET Y=BiLET XETOILET Seat 

GOSUB 380:RETURN 

LET Xe1O8LET W=BILET B8=" = 

BOSUR GOO NRETURN 

LET XeNELET Ye) BILET BS! = 

GOsua 380 

LET XoNNaLET E8=º! 

BOSUB 280 FRETURN 

PRINTE YS64K 

RETURN 

TE Le) THEN LET CsC+ 

NF CxTC THEM LET L=0:LET CoGALET TOmINT 
TF L=0 THEN LET CI=C)H 


230: Volta para imprimir novos 
obstáculos. 

240-290: Imprime mensagem, à 
contagem final e pergunta se quer 
jogar de novo. 

300-310: Imprime o holofute, 
320.330: Apaga o holofote. 

340.370: Sub-rotina que muda a , 
posição do jogador 

380-390: Sub-rotina que imprime 
símbolos na tela a partir das 
coordenadas X,Y. 

400-440; Sub-rotina que escolhe o 
tempo que a luz vai passar ligada e O 
tempo que val passar desligada. 
450-470; Sub-rotina que kê os dados. 
ARO-540: Linhas de dados. 


URNDXO DERA (12-41) )2GOSUB 320 


IF CleTO THEN LET L=1SLEI CI=Q3LET TESINTCRNOCO)4104 (B-A))aGOSUO 200 


RETURM 
DIM ASC7) 
FOR 1=) TO P:READ ASCISSNEXT 1 
RETUAN 
DATA. 
DATA. 
DATA. 
DATA 
DATA * 
DATA. 
DATA, 


Você pode mudar 
a posição dos 
obstáculos 
mudando as linhas 


Tomo você faria para da 
ao jogador uma segunda 
oportunidade, tornando 
assim o jogo mais fácil? 


Modificações 


eo nome 
435 PRINT CHpSCIAM) 


EK (= 163041) 127 THEN BET 18 
NEN GATO 240 


8380 VTADCVO MITÁR COLD tar 15 
380 PRINT CARSCISIAEOR LL) TO VSPRIMPSNESTIPRINT TRECO SOS. 
O LOCATE X, FsPRINI Es 
0,420 Substitua RAD) sor RHD 
o Substátus RADCO! por RMC) 


Espiobot 


aqu 


foi encarregado de controlar o Espiobot, um rohô operado à 
ncia que é capaz de seguir agentes inimigos. Você é informado a 
movimentos do agente nas ruas da cidade (se ele dobrou à 
direita ou à esquerda) e deve transmitir a mesma informação ao 
Espiobot, para que ele não perca o agente de vista. 
mente, 0 agente sabe que está sendo seguido; à medida que o 
tempo gassa, torna a sua tarefa cada vez mais difíci 
Use a tecla D para informar ao Espiobot que o agente foi para à 
direita e E para informar que foi para a esquerda. Por quanto tempo 
', conseguirá seguir o agente inimigo? 


30 LET H=0 
40 LET K 
SO PRINT 
60 PRINT “APERTE P PARA PARTIR” 
AO 70 LET C8= 
BO IF CSO 
46 90 CLSIPRINTEPRINT 


100 
no 
120 
130 
149 
150 
160 
170 
180 
190 
ae 200 
zo 
“e 220 
230 
240 


280 IF C50" 


TF Ka 
LET HS 


Você sabe como fazer 
o computador 
perguntar o nome do 
jogador se ele bater o 
recorde? 


»)) ESPIOBOT C(CYHPRINT 


ENS 
THEN GOTO 70 


THEN LET LoL LET KeO 


LET Ser” 
FOR T=1 TO L 
LET NeRND(O) 


TF M)=0,5 THEN PRINT * 


IF NCO, 
MEXT T 


SO" aLET HS=HS+“E” 
«5 THEN PRINT “DI 


LET K=k41 
FOR De) TO 2004LX5P 
LET CS=INKEYS 


NEXT D 
CLS:PR 


INTEPRINT 


LET E=0 
PRINT "DIGA AS DIRECOES” 
250 FOR [=] 10 L 


Ys 
AND CS()"E* THEM GUTO 270 


290 PRINT CS 


v300 
ao 


IF! 
NEXT T 


YMIDSCNS, 1,1) THEN LET E=1 


320 IF Es0 THEN LET SaS4L 
330 IF S)=H THEN LET H=S 
340 IF E=1 THEN PRINT “VOCE O DEIXOU ESCAPAR!" 


aso 
360 
EM) 
E) 
350 
400 


PRINT 
PRINT 
IF E; 

FOR Ds 
NEXT O 
BOTO 


"VOCE FEZ 
“O RECORDE É “3 
THEN GOTO 40 

1 TO 50045P 


PONTOS” 
;” PONTOS” 


() 


Modificações 


020,90,220 Substitua CLS por HOME 
4 20,90,220 Substitua CLS par PRINT CHR$(147) 


070,200,270 C8= 


: LF PEEK(-16304))127 THEN DET C8 


4.70,200,270 GET CS 
(140 LET NeRND 
AMQ 140 LET RERNDCT) 
WI0O IF CSCIMSLT) THEM LET E=] 


Como funciona 
30-40: Dá valores iniciais às 
variáveis, L é o número de palavras 
que aparecem na tela. K indica 
quantas vezes apareceram L 
palavras. 
60-80: Imprime mensagem e espera 
que a tecla'P seja apertada para 
começar. 
90; Limpa a tela e deixa duas linhas 
em branco. 
100: Se K é 5, aumenta L e faz K 
ual a zero, 
110-120; Inicializa duas variáveis 
“string”. 
130-170; Escolhe ao acaso uma 
sequência de L direções, mostra essa: 
direções ma tela e as guarda em M$ 
180: Aumenta O valor de K, 
190-210: Pausa para que 0 jogador 
possa ver as direções. A duração 
uumenta com o número de palavras. 
230: Indicador de erro; se o jogador 
comete um engano, E passa a ser 
igual a 1. 
250: Começo de um “loop" para 
receber é verificar us respostas. 
260-270: Imprime um ponto de 
interrogação, recebe uma direção e a 
guarda em C$ 
280: Se a tecla apertada não é D 
nem E, continua esperando. 
300: Verifica se a letra em C$ 
corresponde à letra apropriada em 
MS; caso não corresponda, faz E 
igual a 1. 
320: Aumenta a contagem de pontos 
se não houve erros, 
330: Anota o novo recorde se 
necessário. 
340; Im 
erro. 
350-360: Imprime a contagem e o 
recorde. 
370: Volta para um novo jogo. 
380-390: Pausa para mostrar a 
contagem. 
400; Volta para uma nova rodada. 


ne mensagem em cuso de 


A velocidade do jogo é 
controlada pela linha 10. 
Para começar, use os 
seguintes valores: Apple 
, Spectrum 0. 
PRS-80/TRS-80 
Color/MSX 0,3, 
Commodore 64/VIC 20 
0,4, PC 0,5. 
Independentemente do 
tipo de micro, quanto 
menor 0 número, mais 
rápido será o jogo. 


Teste para Espiões 


Como aluno da Escola de Espionagem, você tem que passar em uma série de testes para 
subir de posição. Você começa no nível mais baixo, o de Espião Aprendiz Nível 5. Seu 
objetivo é chegar ao topo e tornar-se um EMI* Nível 1, ou mesmo conquistar o grau 
máximo de Superespião. 


Em cada teste, você dispõe de dez posições na tela do computador e recebe uma série 
de números entre 1 e 99, Seu objetivo é colocar esses números em ordem nas dez 


posições, com o menor na posição 1 e o maior na posição 10. 
Você tem direito a descartar alguns números que não sirvam apertando a teca D. O 
número de números que você pode descartar é igual ao número do nível onde você está. 


Como o programa funciona 


IO DIM NOIODIDIM NSCS) 10; Reserva espaça na memória para 
4820 CL5 as matrizes. 

30 GOSUR 510 20: Limpa a tela. 
ei 30: Vai para a sub-rotina que Iê os 
&0 LET 0x0 dados a serem guardados na matriz 
70 FOR 1=) TO JOSLET N(LISO!NEXT 1 Ns. 
do LET I=1 40: Cria uma “string” vazia. 
PO GOSUE 430 50: Começa no nível 


drAmO 100 LET He INTCRNDCO)399+) Í 
110 PRINTEPRINT “ONDE VOCE COLOCA ";M;” 2º 60: G é q número de números 
120 NPUT PR descurtados. 


130 loca zeros nas 10 posições para 


* ANO GC THEN LET 0=0+1 16070 90 mn: € 


149 THEN PRINT "NAO PODE!"GOTO 120 começar, 
Vã9 LET PAVALCPI) RO: Canta os números que foram 
160 IF PCI OR P)O THEN GOTO 120 ole cadoa. 
90: V tina que imprime 


o seu nível, os números de 1 a 10 e us 
s que já foram colocados. 

100: Escolhe um número entre 1 e 99, 
110-120; Imprime o número e 
pergunta onde você quer colocá-lo. 
130-140; Verifica se você apertou D e 
se ainda tem direito de descartar 
números. 

150; Calcula o valor numérico da tecla 
que você apertou. 

160: Se q tecla apertada não está entre 
1e 10, continua esperando. 


JF NCP590 THEN PRINT “ESTA OCUPADO" :GOTO 120 


LET NtP)=H 
LET F=0 

FOR L=P TO 10 

NF NCLICH AD N(LIOO THEN LET F=1 
NEXT L 

FOR Lei TO P 

TF NCLIH AND N(LIOO THEN LET F=1 
NEXT L 

IF F=] THEN GOTO 260 

LET I=I+51F ICU THEN GOTO 90 
LEI 0=0-1:1F D=0 THEN GOTO 390 
PRINT "MUITO BEM. PASSOU PAR 


PRINTIPRINT “VOCE AGORA E UM 
LET use" 


GOTO 400 
PRINT "PARABENS! VOCE CHEGOU RO NIVEL" 
PRINT “DE SUPERESP LAO!" 

STOP 

PRINT “ERRADO, SINTO MUITO.” 
PRINTIPRINT "VOCE AINDA E UM “; 

PRINT NS(D) 

LET US="ALNOR' 

PRINTSPRINT “QUER TENTAR DE NOVO? (5/N)” 


INPUT ABEIF A$="S" THEN GOTO 60 
STOP 

cLs 

PRINTSPRINT “VOCE E “;U8;" UM 


PRINT 
FOR J=) TO 1 

PRINT dy 

TF NCJ)O THEM PRINT NGJ)s 

PRINTIMEXT ) 

RETURN 

FOR 1=1 TO READ NSCI) 

NEXT 

RETURN 

DATA “EMI”, “ESPIRO" "ESPIAD JUNIOR” 
DATA “ESPIÃO ASSISTENTE”, "ESPIRO APRENDIZ” 


Modificações 


vo DIM NI 


trico 
CBV ICO LET H=INTIRNDCI 49941) 


170: Verifica se a posição já está 
ocupada e informa ao jogador. 

180; Coloca o número na posição 
indicada, 

190-220; Verifica todas as posições 
ubuixo du indicada para ver se alguma 
contém um número menor. Em caso 
afirmativo, faz F igual a 1, 

230-250: Verifica todas as posições 
acima da Indicada para ver se alguma 
contém um número muior, Em caso 
afirmativo, faz F igual a 1. 

260: Se a posição está errada, pula 
para a linha 360. 

270: Aumenta o contador e volta para 
escolher outro número, 

280-300: Muda D para o nível seguinte 
e imprime mensagem (se D é O, vai 
para a mensagem de Superespião). 
310; Coloca uma “string” vazia em 
WS. 

320; Pula para a mensagem “Quer 
tentar de novo?" 

330-350: Mensagem de Superespião. 
360-380: Mensugem de erro. 

390: Coloca a palavra “ainda” em 
ws. 

4010-420; Pergunta se você quer jogar 
de nova; se a resposta é não, encerra 
o jogo. 

430-500: Sub-rotina que imprime o 
nível e os números. 

510-530: Sub-rotina que coloca os 


nomes dos níveis na matriz N$. 
540-55D: Dados. 


2DIM NSCS, 16) 
ubstitua CLS por HOM 

ubsLitua CLS por PRINT CHR$(147) 
T N=INTLRNDAS9ST) 


Gerador de Mensagens Secretas 


Use este programa para enviar mensagens em código a seus amigos. Eles vão precisar 
de um computador para decodificar as mensagens, mas não necessariamente do 
mesmo tipo que o seu. (É claro que também vio precisar de uma cópia do 
programa.) Eles também poderão mandar mensagens em código para você. 


a funciona 


Você e seus amigos E A 
poderão formar uma Rede ) 110: Se a escolha não faz sentido, volta 


de Espionagem. para 9 mena. 
ge 120-200: SUB-ROTINA PARA CODIFICAR 
para a sub-rotina que recebe à 
mensagem. 
CLSIPRINTIPRINT “MENSAGEM SECRETAS 130: Escolhe de quanto as letras vão ser 
Eid Ee deslocadas e guarda este valor em X. 
PRINTAPRINT "VOCÊ QUERIA" 140: Acrescenta uma letra para que, 

N n . caso a primeira palavra tenha apen: 
PRIME “qu EIGECOOFICAR UNA, RERGRCEN" uma letra, a mensagem codificada mão 
PRINTaPRINT comece com um espaço. 

PRINT "ENTRE COM O NUMEROS INPUT A 150: Vai para duas sub-rotinas, uma 

Tr fe THE eg que desloca u mensagem de X letras é 

aaro do outra que a inverte. 

LET C8="CODIFICADA” 508 160: Acrescenta uma letra à mensagem 

Er otreanenasei para informar à sub-rotima de 

Mg o DA decodificação qual é o valor de X. 

LET MSSCHRS (+64) HS ATO: Verifica se u 

TF LENCHSD/20 INT(LENCNS)/2) THEM GOBUB 450 número par de letras 

PRINT “NENGRORN EH CODIO afirmativo, val para uma sub-rotina que 

RETURN troca as letras duas a duas 

LET C8="DECOO IFICADA ) UB-ROTINA PARA 

TF LENQRE/2=INTCLENO AR 

id Woa)=1) Vai para a sub-rotina que recebe a 

LET 8) -64 mensagem. 

LET Xe-XIGOSUO 420 220: Se a mensagem tem um número 
par de letras, val para uma sub-rotina 
que troca as letras duas a duas. 
230-240: Suprime a primeira letra. (Esta 
é u letra que foi acrescentada na linha 
160 para indicar o deslocamento.) 

Calcula o valor de X. 
260: Muda o sentido do deslocamento e 
vai para a sub-rotina que inverte a 


E] SX YET 
U SZFAE EW GSLKW ) XCAMT KMA EDPZWMS Y VEXYE 


KGFSDH KGX PYJYD PCSO 
CDCFA MD 


RGLESMIFW JGH SD 
JSUAX EWVGHX KIXRWK KOSSBO 


GUSUB 3102H8-8 IONTSCNS,LENCAS)=1) 
PRINT "MENSAGEM DECODIFICADA:” 
PRINT MS 

RETURN 

LET N8= 

FOR L=1 TO LENCNS) 

LET QSSHLOSCNS, LNISLET 

IF Ned? THEN GOTO 980 

LET NeNtx 

TF N)90 THEN LET 

TF NC65 THEN LET 

LET NScNSACHRSCH) SHEXT 1 

LET MSSNSSRETUAM 

PRINT "QUAL E À MENSAGEM A GER “9! 
INPUT MSZRETURN 

LET FOR LoLENCNS) TO 1 STEP = 
LET LDSCNS, 1, D3MEXT 

LET ETURN 

LET ET LELENCHS) 

FOR I=1 TO LENCNS)=) STEP 2 

LET NSeNSMILDSCNS, 191,1) 

LET NESNSHNIDS CNS, 1,1) 

NEXT [LET MESASSRETURN 


Os espiões em geral 
decodificam suas 

nsugens untes de 
enviá-las, para ver se 
estão corretas, 


Modificações 


SIC Substitua CLS por HOME 
410 Substitua CLS por PRINT CHASC147) 
49 130 LET A=INTERNDEZS) 41 
Amo 130 LET X=INTCRNOCI)E2SS1] 
230 LET K$-H$(1) 
v240 LET M$mMSc2 TO ) 


XSHV OKTITT LMIHKH 


270: Vai para a sub-rotina que desloca 
as letras. Suprime a primeira letra. 
ROTINA PARA 


310; Coloca uma “string” vazia em N$: 
320: Começo de um “loop” que remove 
letras de M$ uma por uma, 
330; Obtém o número de código do 
computador para a letra. 
340; Se é um espaço, não faz nada. 
Soma o valor de X ao código da 
letra, 
360-370: Ajusta o número de código se 
for maior que o código de Z ou menor 
que o código de A, 
Acrescenta uma letra a N$ e volta 
ia do “loop", 

Depois que todas as letras foram 
deslocadas, a nova mensugem é 
colocada em M$. 

400-410; Sub-rotina que recebe uma 
mensagem, 

420-440: Sub-rotina que inverte a 
mensagem. 

450-490: Suh-rotina que troca as letras 
duas o dua: 


250 LET KeCODELXS)-44 
V270 GOSUA JIGILET ME=ANCZ TO ) 
330 LET OSCHECIDILET NECODE(OS) 
9430 LET NSSNAMRC DD SNEXT 1 
VATO LET NSSNS+ABS (141) 

ARO LET NG-HESB(L) 


CIKS ZNYB 
KS CYCKWPF 


TFT NAHXGYM 


Você é capaz de 


ZKDD TZC 
AGLCLAPPDL QU 


Encontro Marcado 


Sua missão é complicada, de 
deve ler estas instruções com 
Você precisa apanhar uma maleta em um 
escaninho da estação, entregá-la ao seu 
contato e voltar ao aeroporto a tempo de 


modo que você 
atenção. 


a hora). 

O computador lhe informa onde estará o 
contato e a que horas, Você tem que deixar 
uma mensagem nesse lugar, antes da hora 
marcada, dizendo onde e quando o 
encontrará para entregar-lhe a maleta. 

Você precisa descobrir a senha antes de 
encontrar o contato e não pode chegar 
atrasado mais que 15 minutos. 

Antes de pegar a maleta, você precisa 
encontrar a chave do escaninho e também 
descobrir o seu número. Infelizmente, a 
chave se encontra nas mãos de agentes 
inimigos, que estão hospedados no Hotel. 
sa encontrar um espião inimigo e 
, na esperança de que deixe cair a 


eire a lista abaixo mostra as palavras 
» você pode usar no jogo. 


; Talvez você queira anotar a 
senha e o número do escaninho 
(em código, maturalmente) 


Palavras que podem ser usadas 


HORA — Para saber que horas sã 
IR — A qualquer lugar do mapa. 
DIZER — A senha. 


EXAMINAR — Qualquer coisa. 
(Examinar à chave para saber 0 número.) 


LER — Uma mensagem. 
ABRIR — O escaninho 


SEGUIR — Um espião inimigo. 


Se quiser, você pode 
escolher outras senhas. 


12 


Chegue aqui a 
tempo de pegar o 


ESPERAR — Um certo tempo. 
DEIXAR 


PROCURAR — Em qualquer lugar (para 
achar a chave). 


LEMBRAR — Para saber a hora e local 
do encontro. 


- Uma mensagem. 


Você também pode usar qualquer dos 
nomes que aparecem no mapa em letras 
maiúsculas. 


Você também pode mudar os 
nomes dos lugares. 


/ 


Como o programa funciona 


10: Vai para o tinal do programa para 
ler os dados e inicializar as variáveis. 


20: P, Y e X assinalam a posição do 
jogador. posição do inimigo. 


SO: B$ é para as mensagens do 
computador para 0 jogador. 


80: Aumenta NM (número de 
movimentos). 


130: NE conta há quanto tempo 0 
já no mesmo lugar que um 


arame Ee TS mente quis 


mm SENTE o 


TM LET BEL SEM CoNRIO LoMGRD CI vaCIU 


EM BR 90 Trave atra 


AMO ires 


sou serves 


180-190: Verifica se a missão foi 
cumprida. 


200-260: Recebe instrução do jogador 
é a compara com as que estão 
guardadas na memória. V é o número 
da palavra encontrada. 


270-280: Verifica o valor de NE para 
saber se 0 jogador toi vista pelo 
inimigo. 


290; Pula para uma entre várias sub- 
rotinas, dependendo da instrução 
recebida. 


300; Incrementa o tempo. 


330; Verifica se o tempo do jogador 
acabou 


30: Leva q 
Hotel, 


migo de volta para o 


360-410: SUB-ROTINA PARA IR 


420-480: SUB-ROTINA PARA 
DIZER 


490-530: SUB-ROTINA PARA 
EXAMINAR 
540-560: SUB-ROTINA PARA LER 


5870-630: SUB-ROTINA PARA 
ABRIR 


640-700: SUB-ROTINA PARA 
SEGUIR 


710-720; SUB-ROTINA PARA 
ESPERAR 

730-770: SUR-ROTINA PARA 
DEIXAR 


780-800: SUB-ROTINA PARA 
PROCURAR 


810; SUB-ROTINA PARA DIZER A 
HORA 


20-86): SUB-ROTINA PARA 
LEMBRAR 


70: SUB-ROTINA PARA 
PALAVRAS DESCONHE 


DAS 


pi A 880: Mensagem para quando o 
mé ia ca — tempo acaba 

po 890-940: Imprime mensagem e 
TOS PEIN =TRTE Enade la a contagem de pontos para 
Efe o a missão bem-sucedi 


A 
contagem depende do número de 


movimentos e do tempo que resta. 
voo Lt ea programa estão nas 9SU-1000: Sub-rotina para calcular 
PO LE Oca eat linhas de 360 a 870. a distância percorrida e o tempo 
gasto pelo jugador 


1056 


: Sub-rotina para ler os 
va CEL ema 1130: Escolhe a hora inicial. 


TO: Escolhe a hora do último 


Ev Ph 11SQ: Escolhe a hora para o 
Ma, contato apanhar a mensagem 


s de dados, 


1180-1190: Escolhe os locais da 
s mensagem, da e 
onde o contato vai apanhar a 
mensagem 


e 


has de 1010 
1320 está à chamado 
“Inicialização” do 


1200-1210: Escolhe a senha. 


1220: Escolhe o número do 
escaninho. 


1230-1320: Imprime a apresenta 
me do jogo 


Mo: 


icações a se consegue descobri” 


para que servem todas as 
rapbtedhodo) ss Peço REA linhas das sub-rotin; e 
8 dr apoc "nie PET Fanta os E 
CET 730 JB) 7608 198) ANDOU 10-02 [As variáveis F(1), E(2) efe 
VOO LES SSSBSLINME NEEDS O MEMLZADS TRA ET ne são “bandeiras”. F(5), po 
9735 TF LENCSSCIA THCU LEI S9e5s- exemplo, é 1 se você está 
O. DIS DIM NSCEO.PANMDIA URCA? SDL EC 


49 25,340, 660 ,870 680, 1120, H4É 


V59, ND 


com a chave e O se não 
está. Veja se descobre 


para que servem as outras, 
bandeiras. 


stitue PMDIn) oó 
280.66€,870 680.11 


Mimo, tis 


Código Morse 

Se você quer ser um hom espião, terá 
que aprender a enviar, receher e também, 
naturalmente, interceptar mensagens em 
Código Morse. Este programa o ajudará 
“a praticar, Se você não conhece o Código 
Morse, terá que preparar uma tabela com 
as letras € seus equivalentes em código. 
Para isso, pode usar as linhas 400 a 450 
do programa, que mostram os sinais de 
Código Morse de todas as letras em 
ordem alfabética. 


o Gauum a7o 
ão Ci 
Se LET gado 
do PRINTAPRINT 
dO PRINTAPRIN? “OU C NIVEL 2 
dO PRINIAPMIN! CCi=Rpp IDO)” 
70 PRINTPRINO “(SSLEMTOS” 

DO ;MPUT PaLE? pera, 


“EDDIGO NORSE 


velocidade é controlada po? 
inha 30, Quem memos 1. 
número, mat rápido w 


ae cs 
O 


PRIMTSPRINT “pREPpRE-SE= 


mos 1 


166 PRINT 
V7e INPUT 8 
VDO TE X8-08 THEM PRINT "CERTO 

196 JF X8OS MICK PRINT “RRO. A LETHA ERA 
200 FOR T=1 TO S0us:NExT 1 


as 


o quta va 
Be Soa ad re umas 
do LET Meoati ao Sa 

a e E cc (rm de contam de pm 
ado de Rc: er dos e 


Ppáohot 


280 GCSUR ANDaLET 27 
270 vusum 340 


209 NOM 4 
299 RETURI. 
309 PRINT 

damos 310 LET OsacHescino ensoconrascs5)) ct larmbem pode usar nes para” 
420 RETURM curmpandar o saber a estrela. 


ramo 335 PRINTO 249,4" 
340 FOR et CO'PAMANERE T 
dramo 359 PRINTS 249," 
360 RETUAM 
waTO DIM NS «26 
380 HOM Te] TO 25SHERO NECI)SMERT 1 
aço SETUMA 
400 DAM Troia, 
4JO DATA 
430 DATA 
«50 0RIA 
440 DATA 
ase on 


Modificações 


tas GUS 
Y 136 LÊ Fscnaicvoe tos = 
poi 


O PRINT CHSCIS) TOR To TO IOMPRBMUMEATIT TRAGO 
390 LJCME do tareuier mer 


Ve e soy ora para vm postos é 
ue som 5 veses mao Ico para os 


Como usar o programa 

No Código Morse, cada letra é 
representada por uma série de sinais 
longos € eurtos. Este programa usa uma 
estrela que pisca. Ele transmite o código 
de uma letra e pergunta a você qual foi 
essa letra. 


Como funciona 


10: Vai para a sub-rotina que lé as 
dados. 

30: Estubelece a velocidade, 

50-80: Pergunta qual o nível que você 
quer e calcula a velocidude do jogo 
dependendo da resposta, 

10: Pausa 

120: Vai para a sub-rotinu que escolhe 
letra ao acaso e a guarda em QS. 
130: Determina o Código Morse pura 
a letra e o quarda em F$. 

140: Val para a sub-rotina que 
imprime q estrela. 

160-170; Recebe a sua resposta. 
180-190; Verifica se a resposta está 
correta € imprime uma mensagei 
apropriada. 

200-210: Faz uma pausa e volta para a 
letra seguinte. 

220-250: Examina todos os elementos 
de E$, fazendo K igual à 1 para os 
pontas e igual a 3 para os iruços, (K 
determima q tempo que a estrela 
permanece no tela.) 

260-270: Vai para a sub-rotina que 
imprime a estrela, Volta, faz K igual a 
1.e volta para a sub-rotina ma linha 
340 para “imprimir” um espuço. O 
objetivo é deixar um espaço entre os 
pontos € traços. 

280: Volta para o ponto ou truço 
seguinte. 

310-320; Sub-rotina para escolher uma 
letra ao acaso. 

330: Imprime a estrela. 

340: Espera por um período de tempo 
que depende de K. 

350: Imprime um espaço no lugar da 
estrela. 

370-390: Sub-rotina que lê os dados. 
400-450: Linhas de dados. 


Respostas dos problemas 


Aqui estão as respostas de alguns dos problemas apresentados neste livro. Pode ser que 
sejam diferentes das suas. Se os seus programas funcionarem corretamente, tudo bem. 
Entretanto, verifique se suas respostas são tão simples e objetivas quanto as do livro. 


Olhos de Espião 

Aqui está como mostrar o recorde do momento. 
15 LET H=0 

215 PRINT "RECORD 
275 1F PoH TEMA 
290 INPUT A$s TF Ag= 


* THEN GOTO 20 


Holofote 


PRINT "ESTE E O NOVO RECORD" 


Aqui está coma fazer o holofote ficar aceso por mais tempo... 


430 TF Ci=TC THEN LET L=1:LET CI=0;LET TC=INTURNDEOM210+(8- A)+10:GOSUB 300 


...e aqui está como dar ao jogador uma segunda 
oportunidade. 

15 LET NJ=0 

255 LET NJsN94t 

257 IF NX2 THEN FOR Tei TO 200:NEXT TaEOTO 30 


Espiobot 
As linhas abaixo fazem 0 computador perguntar 
o nome da jogador quando este bate 0 recorde. 


25 LET H$="NINGUEM" 

330 Supriaa esta linha 

365 IF E=i AND SH THEN LET H=5:GOSUB 410 

AO PRINT “ESTE E O NOVO RECORDE 1" 

420 PRINT "ESCREVA SEU NOME, POR FAVOR" 

430 INPUT H$sSRETURN 

Teste para Espiões 

Aqui está como mudar o número de posições de 
10 para 15 

10 DIM NC15):DIM N$(5) 

70,160,200,460 Nude o 10 nessas linhas para 15 


Nota para os usuários do MSX: Em to- 
dos os programas, acrescente a linha: 

5 R=RND(—TIME) 

Nota para os usuários do PC: Em to- 
dos os programas, acrescente a linha: 


5 RANDOMIZE VAL (RIGHTS TIMES .2))| 


E é uma nova variável para” 
guardas o múrmero de jogadas, 


Nota especial para os 
usuários do TK-2000 

Se o seu micro é um TK-2000, 
use as modificações indicadas 
para a família Apple, com uma 
única exceção: se a modificação 
for do tipo 

am abs T STF PEEXI-1A384))127 THEN GET af 
onde nnn é o número da linha e 


|a$ é o nome de uma variável, 


subs a esta linha por: 

ame af SECALL -1899751F PEERL-IGSESNO THEM BET as 
e acrescente as seguintes linhas: 

| DATA 169,255,14:,0,192,77 

2 DATA 16,192,141,255,191,96 

3 FOR 1=-16397 TO -16386 

4 READ AsPOKE 1,A:NEXT 1 


Guias Práticos de Microcomputada: 


TUDO 


"SABER SOBRE MICROCOMPUTADORES: 


O QUE VOCÊ PRECISA Comendo 


e as maravilhas que eles podem fazer 


